home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / tcp / MCF_Buttons.lha / MCF_Buttons / Rexx / MCF_WWW.AMIRX < prev    next >
Encoding:
Text File  |  1998-03-15  |  1.5 KB  |  11 lines
  1. /* MCF_WWW.AMIRX
  2. // $VER: MCF_WWW.amirx 5.3 (14.03.98)
  3. \\
  4. // Written by Donald T. Becker (dtbecker@prolog.net) IRC: StarDustr
  5. \\ Please mail any bug reports/comments to the above address with a subject
  6. // header of MCF_Buttons.AMIRX.
  7. \\
  8. // ** What to do with this file?
  9. \\ Put this script in AmIRC/Rexx
  10. */
  11. ;parse arg MyURL junk;WBPorts=show('p')||' ';select;when MyURL="" then;MyURL="http://home.ptd.net/~strdustr/amirc/MCF.html";when MyURL="URL" then call GetURL();otherwise nop;end;if 0=pos("://",MyURL) then MyURL="http://"||MyURL;select;when 0~=pos("AMOSAIC.",WBPorts) then;do;as=pos("AMOSAIC.",WBPorts);ae=pos(' ',WBPorts,as)-as;port=substr(WBPorts,as,ae);interpret "address" port "'JUMP URL' MyURL";end;when 0~=pos("AWEB.",WBPorts) then;do;as=pos("AWEB.",WBPorts);ae=pos(' ',WBPorts,as)-as;port=substr(WBPorts,as,ae);interpret "address" port "'OPEN' MyURL";end;when 0~=pos("IBROWSE",WBPorts) then;do;address IBROWSE "GOTOURL" MyURL;end;when 0~=pos("MINDWALKER",WBPorts) then;do;address MINDWALKER "openurl" MyURL;end;when 0~=pos("VOYAGER",WBPorts) then;do;address VOYAGER "openurl" MyURL;end;otherwise call LoadWWW();end;exit;LoadWWW:;WClip=getclip("mcfb_WWW");if WClip="" then exit;address command "Run >Nil:" WClip MyURL;return;GetURL:;if open("Clip","Clips:0",'r') then;do;xx=readln("Clip");call close("Clip");MyURL=substr(xx,21);return;end;if ~show('L',"rexxtricks.library") then;do;if ~addlib("rexxtricks.library",0,-30,0) then;do;say "rexxtricks.library Open Failure.  EOJ.";exit;end;end;MyURL=READCLIPBOARD(0);return